home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 07 (1982-03)(Softdisk)(Side A).zip / Softdisk Magazette Volume 1, No. 07 (1982-03)(Softdisk)(Side A).do / GARRISON'S.SHOW.bas < prev    next >
BASIC Source File  |  1996-12-24  |  819b  |  19 lines
  1. 1  REM  GARRISON'S.SHOW
  2. 2 D$ =  CHR$(4): DIM MENU$(5): GOSUB 100
  3. 10  PRINT D$"BLOAD UNPACKER"
  4. 15  TEXT : HOME : VTAB 6: HTAB 8: PRINT "WHICH WOULD YOU LIKE?": PRINT 
  5. 20  FOR I = 1 TO 05: PRINT  SPC( 10); CHR$(I +64);". ";MENU$(I): NEXT 
  6. 22  VTAB 17: HTAB 9: PRINT "J.S. GARRISON III,  M.D."
  7. 23  HTAB 9: PRINT "BOX 7135": HTAB 9: PRINT "PORTSMOUTH, VIRGINIA 23707"
  8. 24  PRINT : HTAB 6: PRINT "DID THIS FOR SOFTDISK MAGAZETTE"
  9. 35  VTAB 14: HTAB 11: GET N$: PRINT 
  10. 40 N =  ASC(N$) -64: IF N <1  THEN 35
  11. 42 N$ = "": IF N >05  THEN 35
  12. 45  IF N = 1  OR N = 2  OR N = 3  OR N = 4  THEN 150
  13. 46  IF N = 5  THEN 180
  14. 100 MENU$(1) = "CATS"
  15. 120 MENU$(02) = "SNOOPY":MENU$(03) = "PITCH VALUES"
  16. 130 MENU$(04) = "SNOWFLAKE":MENU$(05) = "QUIT"
  17. 145  RETURN 
  18. 150  PRINT D$;"RUN ";MENU$(N)
  19. 180  TEXT : HOME : PRINT  CHR$(4)"RUN KICK.IT.OFF"